home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / russell / russell.lha / examples / extern_test.r < prev    next >
Text File  |  1989-12-29  |  267b  |  11 lines
  1. let
  2.     fork == func[var Void] val Short { extern "_fork" };
  3.     sleep == func[val Short; var Void] val Void { extern "_sleep" };
  4.     pid == fork[];
  5. in
  6.     if
  7.     pid = 0 ==> sleep[5]; put["Child here\n"];
  8.     #   pid <> 0 ==> sleep[10]; put["Parent here\n"];
  9.     fi
  10. ni
  11.